a = 6 (slider from 1 to 20, step 1)
w = Vector((0, 0, 0), (0, 0, 8))
A = (0, 0, 0)
B: (a, 0, 0)
C: (a, a, 0)
D: (0, a, 0)
W, E_1, F_1, G, H, faceABFE, faceBCGF, faceCDHG, faceADHE, faceEFGH, edgeAE, edgeBF, edgeCG, edgeDH, edgeEF, edgeFG, edgeGH, edgeEH = Prism(Polygon[A, B, C, D], a)
e = 2.8 (slider from 0 to 10, step 0.001)
E = Plane(B, D, E_1)
F = Plane((e, e, e), E)
poly1, a_1, b, c, d = Polygon(A, B, C, D)
gz = Line(A, E_1)
I = Intersect(gz, F)
gx = Line(A, B)
J = Intersect(F, gx)
gy = Line(A, D)
K = Intersect(gy, F)
poly2, k, i, j = Polygon(I, J, K)
g1: a * 0.65
gy1 = Line(E_1, H)
gz1 = Line(B, F_1)
gx1 = Line(H, D)
gx2 = Line(C, D)
gy2 = Line(B, C)
L = Intersect(gx1, F)
M = Intersect(gx2, F)
N = Intersect(gy1, F)
O = Intersect(gy2, F)
P = Intersect(gz1, F)
gx3 = Line(E_1, F_1)
Q = Intersect(F, gx3)
poly3, p, o, m, l, n, q = Polygon(P, O, M, L, N, Q)
gy4 = Line(F_1, G)
gx4 = Line(H, G)
R = Intersect(F, gx4)
S = Intersect(F, gy4)
gz4 = Line(C, G)
T = Intersect(gz4, F)
poly4, s, t, r = Polygon(T, R, S)
v = Vector((0, 0, 0), (0, 8, 0))
u = Vector((0, 0, 0), (8, 0, 0))